home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. Windows 3
/
dr win3.zip
/
dr win3
/
VISUALBA
/
DFVB19.ZIP
/
DFRAMEVB.INC
< prev
next >
Wrap
Text File
|
1994-03-09
|
15KB
|
250 lines
DECLARE SUB Back.Space (Row%, Col%, Num%)
DECLARE SUB BOX.IT (TROW%, LCOL%, BROW%, RCOL%, BOXTYPE%, BOXFG%, BOXBG%, FILLFG%, FILLBG%, FILLCHAR%, SHADOW%, TITLE$, HFG%, HBG%)
DECLARE SUB Cipher (St$, Password$)
DECLARE SUB CipherP (St$, Password$)
DECLARE SUB ClearBuffer (Buff%)
DECLARE SUB ClrKbd ()
DECLARE SUB CLREOL (XPOS%, YPOS%, BGC%)
DECLARE SUB CLRMOL (XPOS%, YPOS%, LENGTH%, BGC%)
DECLARE SUB CLRSOL (XPOS%, YPOS%, BGC%)
DECLARE SUB CLRSCRN (CLR%)
DECLARE SUB DE.LAY (BYVAL Seconds AS INTEGER)
DECLARE SUB DETECT.ANSI ()
DECLARE SUB DIS.PLAY (MSG$, FGC%, BGC%, BLINK%, BELL%, XPOS%, YPOS%, NL%, CENTER%, Caps%, Codes%)
DECLARE SUB ENTER ()
DECLARE SUB ERRORS (ERRNUM%, ERRLINE%)
DECLARE SUB EXIT.DOOR (YN$)
DECLARE SUB INITIALIZE ()
DECLARE SUB IN.PUT (RLEN%, WAITTIME&, IFG%, IBG%, AutoCR%, Text$, TFG%, TBG%, X%, Y%, ShowIt%)
DECLARE SUB IN.KEY ()
DECLARE SUB KEYTIMER (KEYSTART&)
DECLARE SUB LINES (SROW%, SCOL%, LENGTH%, Direction$, ENDS%, MID%, EFG%, EBG%, MFG%, MBG%)
DECLARE SUB MAKE.BLT (HI.SCORE&)
DECLARE SUB MAKE.BLT.CURRENT (HI.SCORE&)
DECLARE SUB MORE ()
DECLARE SUB MUSIC (TUNE$)
DECLARE SUB OUT.PUT (LF%)
DECLARE SUB SEND (MSG$, YN%, CLR%)
DECLARE SUB SENDANSI (MSG$, YN%, Inter%)
DECLARE SUB SHOW.BLT (YN$)
DECLARE FUNCTION CheckShare2% ()
DECLARE FUNCTION DriveSpace& (Drive$)
DECLARE FUNCTION NameCase2$ (St$)
DECLARE FUNCTION Sec2Time$ (Seconds&)
DECLARE FUNCTION Time2Sec& (TimeSt$)
DECLARE SUB BigPrint (St$, PixelCh$, BYVAL Row%, BYVAL Column%, BYVAL Attr%)
DECLARE SUB CalcAttr (BYVAL Fore%, BYVAL Back%, Attr%)
DECLARE SUB CalcDate (StartDate$, Days&, Direction%, NewDate$, ErrCode%)
DECLARE SUB CDROM (FirstDrive$, Drives%)
DECLARE SUB CheckDate (MonthNr%, DayNr%, YearNr%, ErrCode%)
DECLARE SUB CheckShare (ShareActive%)
DECLARE SUB DateA2R (MonthNr%, DayNr%, YearNr%, RelDate&)
DECLARE SUB DateN2S (MonthNr%, DayNr%, YearNr%, DateSt$)
DECLARE SUB DateR2A (MonthNr%, DayNr%, YearNr%, RelDate&)
DECLARE SUB DateS2N (MonthNr%, DayNr%, YearNr%, DateSt$)
DECLARE SUB DelFile (FileName$, ErrCode%)
DECLARE SUB DrvType (Drive$, Removeable%, Remote%, ErrCode%)
DECLARE SUB Elapsed (TimeStart$, TimeStop$, ElapsedT$)
DECLARE SUB EMSBuffer (Bytes%)
DECLARE SUB EMSClose (BYVAL ArrayHandle%)
DECLARE SUB EMSGet (BYVAL ArrayHandle%, ElementNr&, Value AS ANY)
DECLARE SUB EMSOpen (Elements&, ElementType%, ArrayHandle%, ErrCode%)
DECLARE SUB EMSPut (BYVAL ArrayHandle%, ElementNr&, Value AS ANY)
DECLARE SUB EMSRest (ArrayState$)
DECLARE SUB EMSSave (ArrayState$)
DECLARE SUB EnhKbd (BYVAL Enable%)
DECLARE SUB EuropeDate (DateSt$, FormatSt$, Result$, ErrCode%)
DECLARE SUB FormatDate (DateSt$, FormatSt$, Result$, ErrCode%)
DECLARE SUB Get4DosV (MajorV%, MinorV%)
DECLARE SUB GetDOSv (MajorVersion%, MinorVersion%)
DECLARE SUB GetDView (MajorV%, MinorV%)
DECLARE SUB GetKbd (Insrt%, Caps%, Num%, ScrollLock%)
DECLARE SUB GetKbd1 (LShift%, RShift%, Cntrl%, Alt%)
DECLARE SUB GetLIMHandles (Handles%)
DECLARE SUB GetLIMm (TotalPages%, FreePages%)
DECLARE SUB GetLIMv (MajorVersionNum%, MinorVersionNum%)
DECLARE SUB GetTView (Installed%)
DECLARE SUB GetTVScreen (DSeg%, DOfs%)
DECLARE SUB KbdType (EnhancedKbd%)
DECLARE SUB LClose (BYVAL EMSHandle%)
DECLARE SUB LGet (BYVAL EMSHandle%, BYVAL DSeg%, BYVAL DOfs%, BYVAL WORDS%)
DECLARE SUB LOpen (BYVAL WORDS%, EMSHandle%, ErrCode%)
DECLARE SUB LPut (BYVAL EMSHandle%, BYVAL DSeg%, BYVAL DOfs%, BYVAL WORDS%)
DECLARE SUB LRotate (St$)
DECLARE SUB Namecase (St$)
DECLARE SUB Processor (CPU%)
DECLARE SUB Retries (BYVAL Tries%, BYVAL RetryPauseLen%)
DECLARE SUB Reverse (St$)
DECLARE SUB RInstr (MainSt$, SubSt$, Posn%)
DECLARE SUB SetError (BYVAL ErrorLevel%)
DECLARE SUB SetKbd (BYVAL Insrt%, BYVAL Caps%, BYVAL Num%, BYVAL ScrollLock%)
DECLARE SUB TInstr (St$, BYVAL ChrType%, Place%)
DECLARE SUB UnCalcAttr (FG%, BG%, BYVAL Attr%)
DECLARE SUB UpdTVScreen (DSeg%, DOfs%)
DECLARE SUB WinCheck (MajorV%, MinorV%)
'NOTE: The following variables are not universally available.
' Check DFRAMEX.DOC for variables available to each BBS system's file.
COMMON SHARED Active.Menu% '0=Main,1=Msg,2=File,3=Sysop (WC 3.0+)
COMMON SHARED Alias$ 'Caller's alias/handle
COMMON SHARED AllowedBytes& 'Allowed BYTES from the PCB PWRD file.
COMMON SHARED AlreadyConnected$ '"TRUE" or "FALSE"
COMMON SHARED AnsiOn$ '"TRUE" or "FALSE"
COMMON SHARED AnsiSupport$ 'Caller supports ANSI but in NG mode
COMMON SHARED Auto.Recycle% '0 = Return control to programmer on
'carrier loss. 1 = Automatic recyle
'and return to BBS (Default).
COMMON SHARED Banked.Time% 'WildCat! v3.0+
COMMON SHARED BaudConn$ 'Connect rate of caller or "LOCAL"
COMMON SHARED BaudOpen$ 'Port opening BPS
COMMON SHARED BaudRate$ 'Baud and parity for DORINFO
COMMON SHARED BBSColor% 'BBS default color code (1-15)
COMMON SHARED BBSDir$ 'Spitfire's home directory
COMMON SHARED BBSSys$ 'Name of the BBS
COMMON SHARED BBSName$ 'DORINFO
COMMON SHARED BirthDate$ 'Caller's date of birth
COMMON SHARED BltPath$ 'Path of the high score bulletin.
COMMON SHARED CallAlarm% 'Caller alarm status. -1=ON, 0=OFF
COMMON SHARED CallersLoc$ 'Location of CALLERSx log
COMMON SHARED ChatStatus$ 'Chat mode status. "U" or "A"
COMMON SHARED Check4RIP% '0=No check for RIPscrip, non-zero=yes
COMMON SHARED City$ 'Caller's city and state
COMMON SHARED CNAMESLoc$ 'Location of CNAMES
COMMON SHARED Command.Line$ 'Y or N, WildCat! v3.0+
COMMON SHARED Comport% 'COM port number
COMMON SHARED ConfReg$ 'Conference registration
COMMON SHARED Console$ '"LOCAL" or "REMOTE"
COMMON SHARED Daily.Bytes.Alwd& 'Daily download max. K limit
COMMON SHARED DailyDnldBytes& 'Bytes downloaded so far today.
COMMON SHARED DataBits$ '7 OR 8
COMMON SHARED DeleteFlag% '1 = delete this record, 0 = keep
COMMON SHARED Display% 'Local display status. -1=ON, 0=OFF
COMMON SHARED DLPerDay& 'Number of downloads allowed per day
COMMON SHARED DLToday& 'Number of downloads made today
COMMON SHARED Door.DL& 'WildCat 3.0+ # files DL'ed in door
COMMON SHARED Door.KB& 'WildCat 3.0+ Total K DL'ed in door
COMMON SHARED Door.Logoff$ 'WildCat 3.0+ Y or N if user logged
'off from within the door
COMMON SHARED DoorNumber$ '
COMMON SHARED Doors.Opened% 'Number of Doors he has opened
COMMON SHARED DorInfo13th$ '13th line for RBBS DORINFO
COMMON SHARED Downloads& 'Number of downloads made
COMMON SHARED ECC% 'Error corrected connect. 1=YES, 0=NO
COMMON SHARED EnterDoor$ 'Time caller entered the door
COMMON SHARED Event$ 'Event time (hh:mm)
COMMON SHARED ExeName$ 'Name of .EXE (Programmer supplied)
COMMON SHARED ExitFrom$ 'Conference exited BBS from
COMMON SHARED Expert$ 'Expert mode - "Y" or "N"
COMMON SHARED Expire$ 'Caller's expiration date
COMMON SHARED ExpiredLevel& 'Expired Security level
COMMON SHARED ExtraTime& 'Number of seconds gained since logon
COMMON SHARED First$ 'Caller's first name
COMMON SHARED Fossil% '0 = No Fossil driver, 1 = yes
COMMON SHARED FrontEnd$ '"TRUE" or "FALSE" if booted from a
'front end program.
COMMON SHARED Graphics% 'Graphics mode status. -1=ON, 0=OFF
COMMON SHARED Hi.Ascii% '1 = Allow IN.PUT to accept A